APPLE COLORS 



■DOUBLE HI-RES* & LO-RES COLORS 
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"l6-color. 560x192 Double Hi-Res 
graphics may be created on IJSK 
Apples with Mark Simonsen's 
BEAGLE GRAPHICS", now available at 
your local Apple software store. 
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BEAGLE BROS INC., 3990 Old Town Aver 

Beagle Bros publishes useful and entertaining Utilities^ Games 
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\ San Diego, CalHomla 92110 

d Books tor all v&raions of Apple II® Computers. 



Peeks, Pokes and Pointers 



Apple^ Zero- Page 

DECIMAL HEX 

32 Teitl Window Lett-Edge i(KJ9/ normal 15 D) $20 

Enampli? POKE 3?, X Iteezfs trie left X columns oT tBxf 
Wamhng Don r lei PEEK{33|tPEEKi33) ei-geBd Ihe scieen wlilth 

33 Text Window Width (l-lOor l-ao/ normal (S40orfl0) $21 
f^Dle POKE 33^3 5cruncnes llslings to remote enlra apBces 

34 Text Window Top-Edge jO-23/norniaii50) $22 

35 Text Window Bottom / normal la 24] $23 

36 Horizontal Cursof-Posjtion ro^] $24 

Exampii'ii (I PEEK{3fi)->; Lhen Itie cuFBor Js In column 
POKE 36,X puis ihe cursnr m cnlumn X*T (ubqIuI wllh BO-columris, 
for po^lmning trie cu'sor Dflyond Ihe AO-coluflin llmH of HTA61 
NoTp POKE 1403,X AOrks similflrty— and more pretficlaWy 

37 Vertical Cursor-Position (0-23) $25 

EMmpbea If PEEK137>-^. '"en I'm cursor i3 on te"t ttne Y*1 

43 BootSiot*16 (after boot) $2B 

44 l_o-Res Une End-Point $2C 

48 l_o-Res COLOR *17 $30 

50 Text Ou^ut Fonnat $32 

POKE 50, 63^1NVERSE POKE 50. ZSS^f^OftMAL, 
POKE 50. t27=F"LASH ((oi" ASCII &1-95} 

51 Prompt-Ctiaracter $33 

Nol*- POKE Sl.a GOTO llwH will prevenf a false ' Nol Direcl Com- 
mand' mesaactH Caused by an iTLinediale GOTO Bnii* r.nmnmnil 

78-79 Random-Numlier l=leid $4E,4F 

103-104 Start of Applesoft Program $67,68 

To Load a prijgram al a non-slflnOai'd locatiD" LOC— 
POf^ELOG I 0: POKE m LOC- (NT[LOC/256)- 256: 
POKE 104. INHLOC/2SB) Tlien LOAD PROGflAW 

Nole. FP(D0S3 3onlv) sals slarl-of-proflramlonormar 2049 (JBOl) 

105-106 LOIWIEIW $69.6A 

NolB LOMEM IS Ihe Start of Vanablo-SpaCB. equtvaleni fo Enil-ol- 
Program (apprcix ) unless changed wilti fha LOMEM; coirnnana. 

107-108 Start Of Array-Space $6B.6C 

109-110 End of Array-Space S6D.6E 

111-112 Start of String-Storage $6F.70 

115-116 HiMEM $7374 

Note HIMEM I isihehighesraddressa^Nablefof UBff byan AppiEsott 
prograri* Nlay be chjiigprj wifh [he hfllMEM: command 

117-118 Une-Number Being Executed $7576 

119-120 Une-No. Where Program Stopped $7776 

121-122 Address of Uoe Executing S797A 

123-124 Cun^nt DATA Une-Number S7B7C 

125-126 Mexl DATA Address $7D7E 

127-128 INPUT or DATA Address $7F,60 



Display Switches 

DECIMAL iwiih negalive egmvalgnt) HEX 

49232 (-16304} Graphics $C050 

49233 1-16303} Te)rt $C051 

49234(16303} Fuil-Graphics , . $C052 
49235 (-16301} Split-Screen $C053 

49236(16300} Page One $C054 

49237 [ 16299} Page Two $C055 

49238 (-1629a) Lo-Res $C056 

49239 (-162971 Hi-Res $0057 

Now Aclivale display switches by PoVmg each JocaUon 
Exampfe POKE 49^2^ SAilches lo Gisphicsdisplay 

Keyboard, etc. 

DECIMAL (Wllh fkegalive equiwaleni) HEX 

49152 (-16364) Read Keyboard. , .$0000 
49168(16360) QearKeyboard ..$C010 

Examplfl 10 KEY^PEEKC49152) IF KEV<:12S THEN fO 
?DPOKE491&a,0 

30 PRINT "KEV . CHRS(KEV-I2S] 

492001-16^) aicic Spealcer .... SC030 

Examplfl FOR A=l TOTO BUZZ" PEEK<4»0a) NEXT 

49249(15367) Button #0 SC061 

Paddle-O Buiron or Opsn (lefi) Apple key " 

49250 M62fl6j Button #1 $C062 

Pacrdle-I Bimon or Clos&l {nghT} Apple key " 

49251 [-162851 Button #2 $C063 

'EiiarT>plo Jf PEEK(4^4&>P) \5 greatei lhao 127 then 
Piidcfle BuftoniTPjs t^ing [■reused— or iranoT con necled 

DOS 3.3 Pokes 

(assLJmE DOS loaded rn mapn mernoryi 

POKE 40193, PEEK(40193)-t^: CALL 42964 

Moves DOS buflers down N*256 bytes. 
POKE 4M52.h4+l: POKE 44605.N 

Allows N file names before catalog pause. 
POKE 44460,BB: POKE 44461^2 

Clears screen befor<j calalog 
POKE 44505,234: POKE 44506^34 

Exposes delGled lile names in catalog. 

POKE 44596, 234: POKE 44S97, 234: POKE 

4459fi, 234 Cfjncels catalog pause. 
POKE 49107,234; POKE 49108^34: POKE 



Page-3 DOS Vectors 

DECIMAL HEX 

976-978 Re-enter-DOS Vector S3D0.3D2 

1010-1012 Reset Vector $3F2,3F4 

Ejnample POKE tOiP, makes Fleset bOdT 

I POKE 1012,5e ro restore normal PosbI furtcllon ) 

1013-1015 Ampersand Vector $3F5.3F7 

Examples POKEI014 155: POKE lOlS. 314 makes LIST 
POKE 1D14, 110: POKE 1015. 165 mahea "fl" CATALOG. 
POKE ID14. 16: POKE 1G15. 317 makes"*' RUN. 

1016-101B Controi-Y Vector S3Fe.3FA 

DOS 3.3 Locations 

DECtf^AL HEJ( 

[All valups flMuma DOS \s loaded m mam memory,) 

42350 Catalog-Routine $A56E 

EnamplE CALL 42350 calfllogs a dJsK. 

40514 Greeting Program Run-nag $9E42 

POKE 40514.52 and INIT s di5J^ When boofod, DOS will anempl lo 
SRUAilhegreGting program POKE 40514,20 for £XEC 

43140-43271 Commands SAB84.A907 

43378-43582 En-or Messages $A972.AA3E 

4361&43617 Last B(oad Lengtt) SAA60.AA61 

43634-43635 Last Bload Start $AA72.AA73 

43624 Drive-Numbef $AA68 

Example POKE 436?4. cfiangaa disk inpuVoUlpul to Dnre D 

43626 Slot-Number $AA6A 

Example POKE 4362fiH S changes dfsk inpufoulpul lo SJol S 

43698 Control-0 Command Character $AAB2 

44033 Catalog Track Number SAC01 

45991-45998 Rle-Type Codes SB3A7.B3AE 

45999-46010 Disk Volume Heading $B3AF.B3BA 
46017 CHsk Volume Number SB3G1 

ProDOS Locations 

DECIMAL HEX 

48944 Slot/Drive Value SBFSO 

" PEEK(4fiM4) is greater lhan 137 Ihen Odva 2. oThwrwise Onye 1 

47313-47422 Commands SS8D1.B93E 

48840-48841 Last Bload Ungth $BEC8.BEC9 

46825-48636 Usl Bload Start $BEB9-BEBA 

Useful Calls . . 



123-124 Current DATA Une-Number $7B.7C 

125-126 Next DATA Address S7D.7E 

127-128 INPUT or DATA Address $7F.80 

129-130 Last-Used Variabte Name $81,82 

13M32 Lasi-Used-VariaUe Address £83.84 

175-176 End of Applesoft Program $AF.BO 

214 RUN Rag $D6 

Examifle POKE 2H. 25S makag any command RUN a orogram 

216 ONERR Flag $08 

Example POKE 216. cancels Irte ONEHR function 

2ia-2l9 Une-Number Of ONERR Error ,--$DA.DB 

220-221 ONERR Error Address SDCDD 

222 ONERR Error Code $DE 



DOS Z.3 anti PRODOS 

1 Language No) Available' 

2 or 3' Range Error 

3: No Device CanneclBfl^ 
4: Wrrte-Prolecled 
5: EntJ ol Dam 
6: File' or Pa\f^ Nol FoufkJ 
7 Volume Mismalctii 
a: VO Emr 
9: Disk FuM 
10: File Locked 



APPLESOFT 

■^PteKt Without Fof 
16 '^Syntax Eiror^FP) 

'Return Withaut Ooaub 
42, 70ui oi Dam 
53' V Illegal Qua nil [y 
69 70veri\ow 
77 VOutot Mamorv 
90" 7Under(I SlarHmont 

107 V Bad Sub&cnpl 

120- ^RedlmO Array 



1l,Synla" Errof' or InvaJkJ Optiarv' 133 7 Division by Zero 



^2. No Bimers Available 
13; Fhle Type Mismalch 
1i; Program Too Large 
15' Nol DiiBCl Command 
17 DlrHciCTy FulF 
IB Ble No! Open? 
19 Duplicate File Name-' 
70 Fhle Busy- 
Si Flle<s} Stjil Operv 



163; ''Tvpe Mismatch 

1 7& 7S!ring Too Long 

191 7Formulfl Too Cimplei 

724. 7Undet"cl Furtction 

2W 7fle-EnlBr 

255 (contrnl-C Interrupt) 

I DOS 3 3 only 
? Pro DOS only 



2?0 



231 



224-225 X of Last HPLOT (oot] $E0.E1 

226 Y of Last HPLOT (o-iflij $E2 

228 HCOLOR Code $E4 

0=0.A2=\.B5^2, 127^3, 128^170=5.213=6,253=7 

H^R«s Plotting Page $E6 

POKE 230.32 selects Page 1 POKE 23G,aB aelecu Page 3 
POKE 230,64 selects Page 2 

SCALE $E7 

Note SCALE=0 ts eqolvalent to a SCALE ol 256 

232-233 Shape Table Start Address .... $EB.E9 
234 H^Res ColllsJon-Check SEA 

EhampJe XDRAW a shape It PEEK(234)=0 Ifien the shape 
sEaned at a norvfl/ach hi-res poinL 

SPEED SF1 

Note: PEEK(241) is 256 mtnua \he current SPEED 

FLASH Mask $F3 

ROT $F9 



241 

243 
249 



Ejiposes deleted file nairies in catalog 
POKE 44596, 234; POKE 44S37. 234: POKE 

44598,234 Cancels catalog pause. 
POKE 49107,234: POKE 49108^: POKE 

49109,234 Preuentfi language card reload 
POKE4$3B4,0 Slops drive motor 
POKE 49305,0 Starts drive motor. 



48825-48826 Last Bload Start SBEB9 BEBA 



Notes 



AppkeS main memory ccmsisla ol 65,536 b/Fss. numbered 
zero la ti5535 Every byle has a uatt/e in the ranQC 0-255 

■ Yuu may value m b/ie numbar-Q with 
th>e cammartd— PRINT PHEK(B) 

■ Vou can usually R5*iea new ^alue-V into byte-B with Bie 
comnand- POKEB.V 

Values hlfjiier than 255 fillp^I be sEor^ in iwo byle^: 

■ Ta look at tlie vzilue m canwcutivs bylss Bl-62— 
PftiNT PEE«(Bl>*PEEK(B?)'»2Sfl 

■ T(i Puke B ngi^v value V (0-6&53S) mto byTHS Bl'B3- 
POKE B1, V-IHT(V/25e)*25fl 

and POKE B2. INT(V/2S6) 
Nble Sir>ce almost any memary la€:alion can Do Peeked ar 
Polieij. program ll^tmgscan reveal Ihou^nd^ ot Peeks and 
Poheanot listed on Ibk^ch an Pokes are ort«n jsed to write 
machl no-language routines Thai may t>o activated wuh the 
CALL command— the possinilities are iji/rrrjfe 

Let A=PEEK(64435) ard e=PeeK{6444a). 
II A-6 and B=0 then Apple lie. 
11 A=6and (B>223 AND B<240) then Apple IJe. 
If AOG then Apple II or IH- 



Useful Calls 

OECIMAL (add 65536 for posHivs gqidvalant) 



HEX 




CALL-25153 Reconnect DOS 3^ S9DBF 

CALL-3100 Reveal H-rea page 1 SF3E4 

CALL-30B6 Dear hi-res acreen to black SF3F2 

CALL-30B2 dear hi-res to laal cotor Hplotted .... SF3F6 

Example HGH2. HCOLOR=5 HPLOT 0.0 CAl.L-30fl2 

CALL-2613 Hi-TM cooniinatea to Zero-Page 3F5CB 

Example. Ttia X and V starling coordmplBs af Ihe ne*r shape table 
□RAW Of >:DfiAW may be determined with a CALL-2613 "Rien 
li=PEEK{2?4)»PEEK(S25f-256ar>d V=PEEK(2Z6|. 

CALL-l43e Pveudo-ReMt SFA62 

CALL-1370 Boot $FAA6 

CALL-1321 Display all recHsters $FAD7 

CALL-n84 aear screen and print 'Apple ... SFB60 

CALL-1036 Move cursor right SFBF4 

CALL-1008 Move cursor left SFClO 

CALL-99e Move cursor up SFC1A 

CALL'956 Clear texlfrom cursor to bottom SFC42 

CALL-922 Move cursor down SFC66 

CALL-e68 Clear texl-lirw !rom cursor to right . . , $FC9C 

CALL-756 Wait lor any keypress SFDOC 

CALL-678 Walt lor a Return keypress SFD5A 

CALL-657 Better Input; commaa/colons O.k. SFD6F 

10 PRINT ■ NAWE (LAST, FIRST) i" ; : CALL -657 
20 AS= ■" ; FOR X=512 TO 707: IF PEEK(X}<>l-ll 
THEN AS=AS'^CHRSjPEEK1Xf-ia6): WEXT X 

CALU46a Memory move $FE2C 

A Basic memory move OS S OEarethe Old-lncabon Star! & End, and 
NS 15 Ihe FJbw Slart QOBUB 5CtD0 to eitecure the move— 
5000 r4=OS: LOC=60; GOSUB 5030: 
N=OE: LOC=6a GOSUB 5030: 
N^NS: LOC:96: GOSUB 5020 
5010 POKE 766. 160: POKE 769. 0: POKE 770, 76: 

POKE 771, 4fl: POKE 772, 254: CALL 7G0: RETURN 
50ao POKE LOG, f^-IWT(N/256t-256: 

POKE LOC^l. INTIN'250); RETURN 

CALL-41S OttatMrnbtor $FE61 

Note Poke start address at locations 5B-Gg before CalL 



CALL-211 
CALL-19B 
CALL-151 
CALL-T44 




To gel on a really good mailing list, wrffe: 
BEAGLE BROS INC. 
3990 Old Town Avenue. Siite 102C 
San Diego* CalHornbi 92110 

COPVRIOHT © 19M. BERT KEASET, BEAQLE SROS INC- 



Ring tMl and print 'ERR' $FF2D 

Ring $FF3A 

En^er monitor SFF69 

Scan Input buffer SFF70 

TiM5 B:^mple uses CALL -144 to execute a machine 
language routine from Baajc (wtll not work In a subroutine): 
100AS="300; ASa 2DEDFD1fl6901 C9 DB DO FB 

60 300G 06330" 
110 FOR X=l TO LEN(AS);POKESlUX, 

ASC(MfOi[Ai,X.llKlPft NEXT 
laj POKE 72,0: CALL -IM 



Beagie Bros makes useful and 
enlertarning Utlities, Gaines 
and PublicatiorLS for alt versions 
of Apple ll*> Computers, 

"APPLE" li ■ HaglMnd Twit Um*. at Apflk CvifHitar. ktc 



